unit LaboratorioRecordFr;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
  StdCtrls, ComCtrls, DBCtrls, ActnList, Buttons, MainRecordFr;

type

  { TLaboratorioRecordFrame }

  TLaboratorioRecordFrame = class(TMainRecordFrame)
    ButtonBuscarMunicipio: TBitBtn;
    DBBairro: TDBEdit;
    DBCep: TDBEdit;
    DBCNPJ: TDBEdit;
    DBComboTecnico: TDBLookupComboBox;
    DBEmail: TDBEdit;
    DBIdMunicipio: TDBEdit;
    DBLogradouro: TDBEdit;
    DBNomeLaboratorio: TDBEdit;
    DBNome_municipio: TDBEdit;
    DBPreco: TDBEdit;
    DBTelefone: TDBEdit;
    DBUF: TDBEdit;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    procedure ControlaBotoes; override;
  private
    { private declarations }
  public
    { public declarations }
  end;

implementation

uses LaboratorioDM, TecnicoDM;

{ TLaboratorioRecordFrame }

procedure TLaboratorioRecordFrame.ControlaBotoes;
begin
  inherited ControlaBotoes;
  // O Cadastro de laboratório permite apenas a alteração
  InserirAction.Enabled := False;
  InserirAction.Visible := False;
  ExcluirAction.Enabled := False;
  ExcluirAction.Visible := False;
  LocalizarAction.Enabled := False;
  LocalizarAction.Visible := False;
end;

initialization
  {$I laboratoriorecordfr.lrs}

end.

